<!--#include file="Config.asp" -->
<!--#include file="HeadTop.asp"-->
<table class="table table-condensed">
<tr bgcolor="#ddeeff" >
    <td>Name</td>
    <td>IP</td>
    <td>Time</td>
    <td>LogType</td>
    <td>SERVER_SOFTWARE</td>
    <td>HTTP_USER_AGENT</td>
<%
set rs=server.createobject("ADODB.Recordset")
sql="select  * from UserLoginRecord order by id desc"
rs.open sql,conn,1,1
rcount=rs.recordcount
if pmcount="" or isempty(pmcount) or pmcount<1 then
   pmcount=Pagez
end if
rs.pagesize=pmcount   	'设置每页数
mpage=rs.pagecount    	'得到总页数
pageno=request("pageno")
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
	pageno=1
end if
if rcount<>0 then
rs.absolutepage=pageno	'将指针移至指定页的第一条记录
end if
loopno=pmcount
do while not rs.eof and loopno>0%>
<tr>
    <td><%=trim(rs("UserID"))%>/<%=trim(rs("name"))%></td>
    <td><%=trim(rs("ip"))%></td>
    <td><%=trim(rs("time"))%></td>
    <td><%=trim(rs("LogType"))%></td>
    <td><%=trim(rs("SERVER_SOFTWARE"))%></td>
    <td><%=Left(trim(rs("HTTP_USER_AGENT")),30)%>...</td>
</tr>
<%
rs.movenext
loopno=loopno-1
loop
rs.close
set rs=nothing
%>
</table>

<table class="table table-condensed">
<tr bgcolor="#ddeeff" >
<TD>
<%for t=1 to mpage%>
<a href="?pageno=<%=t%>">[<%=t%>]</a>
<%next%>&nbsp;
共&nbsp;<%=cstr(mpage)%>&nbsp;页<%=cstr(rcount)%>条
</TD>
</TR>
</TABLE>
<!--#include file="foot.asp" -->